home *** CD-ROM | disk | FTP | other *** search
Wrap
XSetup plugin | 2002-10-22 | 1.9 KB | 86 lines
"FILE"="Xteq Systems X-Setup Plugin 6.0" "TYPE"="6" "COUNT"="3" "UIPATH"="Internet\Opera" "NAME"="Opera Preferences" "VERSION"="3.00" "LANGUAGE"="VBScript" "TEXT 1"="Display Language Options" "TEXT 2"="Display Paths Options" "TEXT 3"="Display Personal Options" "DESCRIPTION 1"="For Opera 5. Here you can control whether certain options will be displayed in User Preferences or not. They are enabled by default, but you may hide them if you wish." "DESCRIPTION 2"="Opera may be obtained at http://www.opera.com/ ." "AUTHOR"="Ojatex@aol.com" "CONTACTURL"="http://members.aol.com/ojatex/" "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved" "COMMENT 1"="Thanks to CptSiskoX for suggested plugin." sFile="" ss="Menu Prefs Settings" v1="Language" v2="Paths" v3="Personal" Sub GetINIFile sPath=RegReadValue("HKCU\Software\Opera Software\Last Directory") sFile=sPath & "\OPERA.ini" if FileExists(sFile)=false then sFile=GetWinDir & "OPERA.ini" end if End Sub Sub Plugin_Initialize Call GetINIFile if FileExists(sFile)=true then i=IniReadValue(sFile,ss,v1) if i="1" then Call SetUIElement(1,true) end if i=IniReadValue(sFile,ss,v2) if i="1" then Call SetUIElement(2,true) end if i=IniReadValue(sFile,ss,v3) if i="1" then Call SetUIElement(3,true) end if else Call Disable() end if End Sub Sub Plugin_Apply(ElementIndex,ElementSubIndex) i=GetUIElement(1) if i=false then Call IniWriteValue(sFile,ss,v1,"") else Call IniWriteValue(sFile,ss,v1,"1") end if i=GetUIElement(2) if i=false then Call IniWriteValue(sFile,ss,v2,"") else Call IniWriteValue(sFile,ss,v2,"1") end if i=GetUIElement(3) if i=false then Call IniWriteValue(sFile,ss,v3,"") else Call IniWriteValue(sFile,ss,v3,"1") end if End Sub Sub Plugin_Terminate End Sub